home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MusicScapes Professional
/
MusicScapes Professional (Wayzata Technology)(1381)(1995).bin
/
elements
/
clarinet
/
00019_Script_19
< prev
next >
Wrap
Text File
|
1994-11-22
|
437b
|
19 lines
on setSoundLevel x
global lastSoundLevel
set the soundlevel to x
set x1 to x + 1
set lastSoundLevel1 to lastSoundLevel + 1
set the checkMark of menuItem lastSoundLevel1 of menu "Volume" to FALSE
set the checkMark of menuItem x1 of menu "Volume" to TRUE
put x into lastSoundLevel
-- put x
end setSoundLevel
on exitMovie
global oldSoundLevel
set the soundLevel to oldSoundLevel
end exitMovie